COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	    begin "SIMP"
C00004 ENDMK
C⊗;
    begin "SIMP"
    itemvar ClItem,alitem,blitem,dlitem;
    integer i,str;
    integer item AI,BI,CI,DI,EI,FI,GI,HI,II;

define ∂="COMMENT";
require "sys:proces.def" source_file;
∂ require 64 ITEM_START;


procedure Talk;
begin "Talk"
integer num;
itemvar nitem,xitem;
clitem←AI;
nitem←GI;
xitem←HI;
MKEVTT(clitem);
while true do begin
num←num+1;
if num MOD 2 = 0 then CAUSE(clitem,nitem)
else CAUSE(clitem,xitem);
if num>5 then DONE;
end;
end "Talk";

procedure ANS;
begin
itemvar ansitem;
while true do begin
    ansitem←INTERROGATE(clitem);
    if ansitem=BINDIT then begin
	print("ANS all done");
	DONE;
	end;
    if ansitem=GI then print(" GI ");
    if ansitem=HI then print(" HI ");
    if ansitem=II then print(" II ");
    end;
end;

procedure ANS1;
begin
itemvar ans1item;
while true do begin
    ans1item←INTERROGATE(clitem);
    if ans1item=BINDIT then begin
	print("ANS1 all done");
	DONE;
	end;
    if ans1item=xitem then print("ANS");
    if ans1item=nitem then begin
	print(" to ");
	DONE;
	end;
    end;
end;
    
    
  sprout(alitem←DI,talk);
  sprout(blitem←EI,ANS);
∂ sprout(dlitem←FI,ANS1);
    
    Join({alItem,blitem});

    end "SIMP";